home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / kit internet / e-mail / yam2.0 / rexx / miamioffline.yam < prev    next >
Text File  |  1999-03-22  |  588b  |  18 lines
  1. /* MiamiOffline.yam - Go offline in Miami                                  */
  2. /* $VER: MiamiOffline.yam 1.1 (22.3.98) © 1998 by M.Beck <mbeck@access.ch> */
  3.  
  4. quitmiami = 0                                      /* Set this 1 if Miami should be terminated */
  5. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort"  /* Don't go offline if one of these applications is running */
  6.  
  7. OPTIONS RESULTS
  8. DO i = 1 TO WORDS(ports)
  9.    IF SHOW('P', WORD(ports,i)) THEN EXIT 0
  10. END
  11. IF SHOW('P', 'MIAMI.1') THEN DO
  12.    ADDRESS 'MIAMI.1'
  13.    ISONLINE
  14.    IF RC=1 THEN OFFLINE
  15.    IF quitmiami = 1 THEN QUIT
  16. END
  17. EXIT 0
  18.